home *** CD-ROM | disk | FTP | other *** search
/ Aminet 52 / Aminet 52 (2002)(GTI - Schatztruhe)[!][Dec 2002].iso / Aminet / comm / irc / epic4-mos.lha / share / epic / script / dig < prev    next >
Text File  |  2002-09-18  |  1KB  |  34 lines
  1. # Contributed to the epic project by Steve Horan on April 21, 1999.
  2. #
  3. # Here's a few useful functions I thought others might find useful
  4.  
  5. # Find the minimum/maximum number. $min(<list>) $max(<list>)
  6. alias max {@ function_return = pop($numsort($*))}
  7. alias min {@ function_return = shift($numsort($*))}
  8.  
  9. # $commasep(one,two,three) returns "one two three"
  10. # $commamake(one two three) returns "one,two,three"
  11. # Useful in opnotice scripts + other aliases.
  12. alias commasep {@ function_return = split(, $*)}
  13. alias commamake {@ function_return = tr(/ /,/$*)}
  14.  
  15. # Somewhat kludge function here. This function finds the parent domain
  16. # to given host, rather than using a assumed approach
  17. # e.g. Many would view www.syd.lucid.net.au as being from the domain
  18. # lucid.net.au - when it's parent domain is in fact syd.lucid.net.au
  19. # This function has it's uses, to some more than others.
  20. # requires hop's pipe function, as well as the "dig" program.
  21. # $digdomain(squishycow.syd.lucid.net.au) returns "syd.lucid.net.au"
  22. alias digdomain {
  23.     if (isalpha($right(1 $*)))
  24.         {@ function_return = pipe(dig SOA $* | perl -lane 'print \$1 if /^([^;].
  25. *?)\\.\\s+.*SOA/')}
  26.         {@ function_return = [$*]}
  27.     }
  28.  
  29. load pipe
  30.  
  31. # - Wuhphy '99
  32. #   sjhoran@syd.lucid.net.au
  33.  
  34.